10 for A=0to 120
20 TV=A
30 @(10)=A
40 next A
:return ;run 